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17822 --- CLOCK/4962 P/N=1635402 EC=755285 PAGE 03 17822 --- CLOCK/4 962 P/N= 1635402 EC=755285 PAGE O3A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STHT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0026E8 0010 536 DC 0016) 000009 654 RID EQU 9 READ ID SVC 
OO26EA D&CIDIFTFE8F2F240C 537 pce efoote HAP7822 CORRECT # OOOOOA 655 START EQOU 10 START CYCLE STEAL SVC 
538 HDIT O0OB2 00000B 656 STCSS FEOU 11 START CYCLE STEAL STATUS SVC 
OO26FA 0000 5S4U0+OPTNI DC X*Q0000!8 PROGRAM OPTION CONTROL WORD 1 00000C 657 PREP EQU 12 PREPARE DEVICE SVC 
541+* 00000D 658 READO EOD 13 READ WITH FUNCTION BIT 3 OFF SVC 
0026FC 0000 542+OPTN2 DC X*'*Q000! PROGRAM OPTION CONTROL WORD 2 OOOOO0E 659 READ1 EOQU 14 RFAD WITH FUNCTION BIT 3 ON SVC 
543+* BIT HEX OOOOOF 660 RSTAT EQOU 15 READ STATUS SVC 
000010 5444+B48 EQU 16 0 8 PROBLEM PROGRAN CONTROL BITS 000010 661 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 
000011 545+B49 EOU 17 1 4 000011 662 WRIT1 EOU 17 WRITE WITH FONCTION BIT 3 ON SVC 
000012 546+8B50 EOU 18 2 2 x THESE BITS ARE USED WITH THE 000012 663 CTRL EOU 18 CONTROL SYC 
000013 547+B51 EQU 19 3 1 * SECOND OPTION WD AND ARE TO 000013 664 RICB EOU 19 RELEASE INTEPUPT CONTROL BLOCK SVC 
000014 548+B52 EQU 20 4 8 * BE ASSIGNED BY EACH PROGRAMMER 000014 665 CICB EOU 20 CONNECT ae ied CONTROL BLOCK SVC 
000015 549+B53 EQU 21 5 4 * 000015 666 HIO EQU 21 HALT AL on 
000016 550+B54 EQU 22 6 2 x 000016 667 RECSD EQOU 22 REGHESeE USE OF DCP DISK SVC 
000017 551+B55 EQU 23 7 1 * 000017 668 RELSD EQU 23 RELEASE USE OF DCP DISK SVC 
000018 552+B56 EQU 24 8 8 * 000018 669 HALT Bea 24 HALT SVC 
000019 553+B57 EQU 25 9 4 * 000019 670 ETOH EQU 25 EBCDIC TO HEX SVC (STPING 
OOO01A 554+B58 EQU 26 10 2 * QOOOOTA 671 HTOE EQU 26 HEX TO EBCDIC SVC Ser aee 
00001B 555+B59 EQU 27 11 1 * 00001B 672 ATOH EQU 27 ASCII TO HEX SVC 
O0001C 556+B60 EQU 28 q2 8 * 00001C 673 HTOA EQU 28 HEX TO ASCII SVC STRING 
00001D 557+B61 ERa 29 13 4 * 00001D 674 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 
QOO01E 558+B62 EQU 30 14 2 * OOOOTE 675 ATOE EQOU 30 ASCII TO EBCDIC SVC (STRING 
OOO001F 559+B63 EQU 31 15 1 * OOO0O01F 676 READI te 31 READ DATA SETS FOR ADI/UTIL 
QOOO01E 560+CH EQU 30 14 2 CHARACTER SUPPLIED 000020 677 WRITI EQU 32 WRITE DATA SETS FOR OTIL 
OOO001F 561+CMP FOU 31 15 1 COMPARE OPERATION MAMET SSIS SSCS SSO SLOSS SS SSS LCS LOLS SLC SP PSP TST ST ES TT TTT CS ST Se Se Te tS te et et ee 
OO26FE 0000 563+0OPTN3 DC xX*0000! PROGRAM OPTION CONTROL WORD 3 680 * 
564+ 681 * EQUATES USED BY TU'S AS CONSTANTS * 
565+* QO MYSTERY INTERRUPT MT 8 CS STATUS IN PROGRESS cS 682 * * 
566+* 1 4#=ERROR INTERRUPT ER 9 CS AVAILABLE CSA 683 30K I OI A OR mi ik io dali tok tok kogoiatok tek aki geok te do ek tok ik te ae ak 
567+* 2 EXPECTED INTERRUPT XI 10 CS STATUS INTERRUPT ERF CE OOOO4E 684 PLUS EQU Cl+! PLUS CHAR 
568+* 3 INTERRUPT RECEIVED IN 11 ISB BITS ON (1-7) TSBON 000060 685 MINUS EQU ct-!3 MINUS CHAR 
569+* 000000 687 ZERO EQU 0 
570+* 4 EXPECTED ee XE 12 TEST UNIT RESUutS VOID NG 000001 688 ONE EQU 1 
571+* 5 HARD ERROR FOUND HE 13. OIO CC ERRO Tocc 000002 689 TWO EQU 2 
572+* 6 WRONG INTR LEVEL SLE 14 NO INTERRUPT NOIN 000003 690 THREE EQU 3 
573+* 7 NO INTR EXPECTED NI 15 INTERRUPT CC ERROR INCC 000004 691 FOUR ERY u 
574+* BIT HEX 000005 692 FIVE EQOU 5 
000020 S754+MI EQU 32 0 8 MYSTERY INTERRUPT HAPPENED OOO000F 693 SIX EQU 6 
000021 S76+ER EQU 33 1 4 ERROR RECEIVED ON INTERRUPT 000007 694 SEVEN EQU 7 
000022 S77+XI EQU 34 2 2 EXPECTED INTERRUPT CONTROL BIT 000008 695 EIGHT EQU 8 
000023 ST8+IN EQU 35 3 1 INTERRUPT RECEIVED CONTROL BIT 000009 €96 NINE EOD 9 
000024 579+XE EQU 36 4 8 EXPECTED ERROR RESPONSE OOOOOA 697 TEN EQOU 10 
000025 580+HE EOU 37 5 4 HARD ERROR, 8 RETRIE 00000B 698 ELEVN EQOU 11 11 
000026 S81+SLE EQU 38 6 2 INTERRUPT on WRONG LEVEL ERROR 00000C 699 TWELV EQU tz 12 
000027 582+NI EOU 39 7 1 NO INTERRUPT EXPECTE 00000D 700 THRIN EQU 13 13 
000028 583+CS EQU 40 8 8 CYCLE STATUS IN PROGRESS OOOOOF 701 FIVIN EQU 15 15 
000029 584+CSA EQU 44 9 4 CYCLE STEAL AVAILABLE 000010 702 SIXTN EQU 16 16 
QOOO02A 585+CE EQU 42 10 2 CYCLE STEAL STATUS INERPRUPT FEFRROR 000020 703 THRY2 EOU 32 32 
00002B 586+ISBON EQOU 43 11 1 ISB BITS ON - ) 000040 7O4 SIXTY att 64 64 
Q00002C 587+NG EQOU Gy 12 g TEST UNIT RESULTS NO GOOD 000080 705 ONE28 EOQU 128 128 
00002D 588+IOCC EOU 45 13 4 OIO CC EFPROR 000100 706 TWO56 EQU 256 256 
QOQO002E 589+NOIN EQU 46 14 2 NO INTERRUPT 000400 707 ONEK EQU 1024 1024 
00002F 590+INCC EOU 47 15 1 INTERRUPT CC ERROR 000800 7O8 TWOK Bea 2048 2048 
591+ | 000C00 709 THREK EQU 3072 3072 
| 592+* COMMON BUFFER FOR PRINTING DATA | 001000 710 FOURK ERu 4096 4096 
593+* FFFFFF 712 1 EQU -4 -1 
002700 0000 595+$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 713 2 EQU -2 -2 
002702 0000 596+SITOIN DC A (*-* I/O AND INTR CONDITION CODES FFFFFD 714 M3 EQO -3 -—3 
002704 0000 597+$ISB DC A (*-* R INTR STATUS BYTE & DEV ADPS FFFFFC 715 M4 EQU —4 -q 
002706 0000 598+LSTIO DC A (*-* ADRS OF LAST T/O + 4 BYTES T17 RRR I III GC Rl gi oR ia kk i toto datok dak tote tee ak ak 
002708 0000 5994+DEV1 DC A (*-* DEVICE DEPENDENT DATA 718 * * 
00270A 0000 600+DEV2 DC A (*-* 719 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
00270C 0000 6014+DEV3 pc A (*-* * 720 * BEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
O0O270E 0000 6024+DEV4 DC A (*-* * 721 * * 
002708 603+SCTID EOQU DEVI READ ID BUFFER FOR IBIS & TERN V2D RR MRK KKK KKK RH KR RK KO ORO RO tO I OR gk kK SRR ROK RR ako tte kak fe ok 
002710 6044+DCBUF EQU * DCB BUFFER FOR LAST DCB USED 000000 723 BSO EQU 0 
002710 0000 605+DCB1 DC A (*-* LAST DCB TABLE, CONTPOL WORD 000001 724 BS1 EOU 1 
002712 0000 606+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 725 BS2 EQU 2 
002714 =0000 6074+DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 726 BS3 EQU 3 
002716 0000 608+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 727 BSY EQU 4 
002718 0000 609+DCB5 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000005 728 BS5 EQU 5 
00271A 0000 610+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 729 BS6 EQU 6 
00271C 0000 611+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 730 BST EQU 7 
00271E 0000 612+DCB8 DC A (*-* LAST DCB TABLE, BUFFER ADDRESS 000008 731 BS8 EQU 8 
613+* 000009 732 BS9 EQU 9 
002720 6144+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 733 BS10 EQU 10 
002720 0000 615+CSTL1 A (*-* CYCLE STEAL BUFFER, RESIDUAL ADRS 00000B 734 BS11 EOU 11 
002722 0000 6164+CSTL2 DC A (*-* CYCLE STEAL WD 2, fPFVICE DEPEND O00000C 735 BS12 EOQU 12 
002724 0000 6174+CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND 00000D 736 BS13 EQU 13 
002726 0000 6184+CSTLY DC A (*¥-* CYCLE STEAL WD 4, DEVICE DEPEND OOOO00E 737 BS14 FOU 14 
002728 0000 6194+CSTL5 DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOO000F 738 BS15 EQOU 15 
00272A 0000 6204+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 740 COPY CK78DCB O1TDECT6 
00272CcC 0000 621+CSTL7T DC A (*-* CYCLE STEAL WD 7, DEVICE DEPEND T41 ** (T78DCB) 13A0G76 
00272E 0000 622+CSTLE pc A te * CYCLE STEAL WD 8, DEVICE DEPEND J42 FO RR RK IR Rk I IOI II a RR i fi kak ak a koi af og ke af ake af afc ake ake a aie ake 
+* * 
002730 0000 6244+$SUBN DC A (*-* LAST SUBPFOUTINE ADDRESS USED 744 * DCB TABLES AND DC'S 
002732 00000000 625+SDATA DC 2A (*-* OPTIONAL DATA 745 * 
002736 0021 6264$INTL DC x¥'o021! INTERRUPT LEVEL REQUESTED VUES SSS SCS SSSCL SSCL SSCS SSS SCSOSC LSC SSC SSCS SLOSS STS SSCS CS CLS SOC Se Tes. tT eS 
002738 0000 627+TURTN DC A (*-* TEST UNIT RETURN ADRS TO MDI Ta7 
00273A OOB2 628+$DVID DC X'OOB2'° DEVICE ID T48 ***** DTAGNOSTIC DCB He eK He ke 
00273C 19D0 629+SVCAL DC Ate ADRS OF DEVICE ADDPESS 749 * 
00273E 0000 630+ DC A (*-*) IBIS CYLINDER ADDRESS 002748 2008 750 DGDCB DC X'2008! DIAGNOSTIC DCB 
631+* OO274A 0000 751 DC X*'O0000! NOT USED 
632+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGPAM 00274C 0000 752 DC X*O0000! NOT USED 
633+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULIS AREA APE OO274E 0000 753 DC X'0000! NOT USED 
634+4+* STILL VALID BUT A DIFFERENT TEST IS TO BE PEPFORMED. 002750 0000 754 DC X¥'0000! NOT USED 
635+* 002752 0000 755 DC bape | CHAINING ADDRESS 
002740 4020 2700 3c02 6364+T3C02 MVWI Meare eeaue SET UP TEST UNIT ID 002754 0100 756 DC X¥'*0100°* BYTE COUNT 
002746 5700 eae oe Ae RETURN TO MDI SUPVR 002756 0000 aee x DC A (*-*) DATA ADD®ESS 
640 PEP ee Per eee uous 5000005 5 0 a 7159 * 
641 * * 760 ***** RECALIBRATE DCB AK eK 3 a 
642 * EQUATED NAMES FOR SUPPORTED SVC'S * 761 * 
£43 * * 002758 0007 762 CLDCB DC X*0007! RECALIBPATE DCB 
644 3 AOI RIOR IO i oi kok ak gio kok ak kok kiko ake ake ake ikea of ake ofc ac 00275A 00000000000000000 763 pc 7A (*-*) 
000000 645 OUT EON 0 ouT svc 764 * 
° 000001 646 OUTIN EQU 1 OUTIN SVC 765 ***** WRITE SECTOR ID ** 
000002 €47 IDLE EQOU 2 IDLE svc 766 * 
000003 648 ASCII EOU 3 HEX TO ASCII SVC 002768 0002 767 WSDCB DC X'0002! WPITE SECTOR ID CONTROL WORD 
000004 649 CHNGE EQU 4 CHANGE LEVEL SVC 00276A 0000 768 DC x*0000" NOT USED 
000005 €50 PGMCK EQU 5 ALLOW PFETURN ON PROGRAM CHECK SVC 00276C 0000 769 DC A (*-* O-7 = PHYSICAL SECTOP # MINUS ONE 
000006 €51 EXIT EQU 6 EXIT SVC OO0276E 0000 770 pc A (*-* NOT USED 
000007 652 TERM EQU 7 TERMINATE SVC 002770 0000 771 DC A (*¥-* NOT USED 
000008 653 RESET EQU 8 RESET DEVICE SVC 002772 0000 772 DC A (*¥-* CHAIN ADDRESS 
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1003 * - THE CALL WITH THE ADDRESS OF THE RETRY STATEMENT 1117+* 5. MOVES THE ADDRESS OF THE I/0 CONTROL eee IN RV, SET THE 
1004 * 4. CYCLE STEAL IN PROGRESS WITH AN ERROR 1118+* EXPECTED INTERRUPT CONTROL BIT AND avec HE 'Své START? 
1005 * 5. SOMETHING ELSE 11194+* 6. WHEN THE SUPVR RETURNS AFTER ISSDING £ 1/0 COMMAND, TIMING 
1998 : LLOWI RIES Wo4e% SICEDE TH pt ei LL eee TO DETERMINE IF IT 
THIS ROUTINE HAS THE FOLLOWING ENT : Py 
1008 * a 1122+* WAS AN ERROR OR OKAY AND EXIT OFF THE INTERRUPT LEVEL. 
1009 * 1 BAL SRKEW,R6 READ SECTOR ID SKEWED 1123+* 8. CHECK IF THERE WAS A WRONG THTE RUT LEVEL. 
1010 * we 1124+ * 9. CHECK IF AN ERROR WAS EXPECTED AND IF THERE WAS RETORN. 
1011 * 2 BAL SWKST,R6 WRITE SECTOR ID SKEWED (TEST) 1125+* 10. CHECK IF THERE WAS AN ERROR Sore mon TF NOT RETURN. 
1012 * ° 1126+* 11. CHECK TO SEE IF THE EXERCISER TO BE TERMINATED. 
1013 * 3 BAL SRWST,R6 READ SECTOR ID SKEWED (TEST) 1127+* 12. CHECK IF A CYCLE STEAL OPERATION WAS IN PROGRESS THAT WAS 
1014 * P 11284+* ISSUED BY THIS SUBROUTINE. 
1015 * 4 BAL SRIDS,R6 READ SECTOR ID (TEST) 1129+4+* e CHECK THE ISB BITS THAT ARE ON. IF BIT O IS ON, ISSUE A 
1016 * P . 1130+* CYCLE STEAL STATUS COMMAND. CHECK FOR ANY OTHER BIT BEING ON, 
1e43 : 5 BAL SWKEW,R6 WRITE SECTOR ID SKEWED s4a945 COUNT IT AND SET UP THE PROPER ERROR MESSAGE TO BE PRINTED. 
1038 : 6 BAL SWSEC,R6 WRITE SECTOR ID HE ae CALLING SEQUENCE 
igad : 7 BAL SWSTS,R6 WRITE SECTOR ID (TEST A hee THIS ROUTINE HAS THE FOLLOWING ENTRIES: 
1023 * 8 BAL SDIAG,F6 DIAGNOSTIC ? 1137+* --> BAL XIO OR XEQ ANY CYCLE STEAL COMMAND, MOD=0 
1024 * ‘e 1138+* --> BAL XI0O1 MOD PARM PRELOADED IN 'IOMOD! 
1025 * 9 BAL XIOCS ,R6 CYCLE STEAL STATUS 11394+* --> BAL XIOCS, ne OR XE START CYCLE STEAL STATUS, MOD=F 
1026 * ° 11404+* --> BAL XIOCS- 76 AUTO CS STATUS See Rene G OTHER XIO 
1922 : 10 BAL SSEEK ,R6 SEEK ae te AND DOES NOT POST INTERRUPT STATUS) 
2 + 
4822 : 11. BAL SRECL,R6 RECALIBRATE i ps RETURN CONTROL 
1031 * 12 BAL SRDID,R6 READ SECTOR ID 1145+* BXS ee (?) RETURN TO USER NO ERROR 
1032 * ‘ 11464+* OR B RETURN AND RETRY ON ERROR 
1033 * 13 BAL SRD,R6 READ 11M b te OR Bae eeeaaieanasn eee eee DS EERE ON ERROR ceexaaee 
1034 * i 00296A CB25 2A6E 1149+xIo MVWZ IOMOD,R3 ag MOF OF O FOR CYCLE STEAL OP 
1032 z 14 BAL SROVY,R6 READ VERIFY 00296E 5SOOA eae J XIO1 S I/O'S ARE NOT RETRIED 
1037 * 15 BAL SWRI,R6 WRITE 002970 A4ACAA 1152+ TBTR Rie CE RESET CS STATUS INTER ERROR INDICAT. 
1038 * 002972 4c68 1153+ TBTS "CS SET 'CYCLE oe a STATUS IN PROGRESS 
1039 * 002974 4020 2A6C 27A8 1154+XIOCS MVA a ODCB SET UP CONTROL BLOCK FOR SVC CALL 
002882 4020 2A6C 2798 1040 $SEEK MVA SKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 00297A 4020 2A6E OOOF 1155+ MVWI Tene: ee SET CYCLE STEAL MODIFIER 
0028B8 5058 1041 J XxIo 002980 4c28 1156+ TBT R4 IS CS IN PROGRESS, ERROR CONDITION 
1042 * 002982 1213 1157+ JON Too. * TES, BYPASS SAVING I/0 ADRS 
OO28BA 4020 2A6C 2758 1043 SRECL MVA CLDCB,ITODCB SET UP BLOCK FOR SVC CALL 002984 6E0D 2706 1158+XI0O1 MVW R6,LSTIO SAVE TAR RETRY IF REQUESTED 
0028C0 5054 1044 J XTO 002988 4324 2710 1159+ MVA DCBUF,R3 SET UP to. CBRE TO MOVE DCB TAELE 
1045 * 00298C 6D08 2A6C 11604 MVW IODCB,R5S * AND THE FROM ADRS, ALONG WITH 
0028C2 4020 2A6C 2778 1046 $RDID MVA RSDCB,TODCB SET UP BLOCK FOR SVC CALL 002990 OF10 1164+ MVBI' 16,R7 * THE NUMBER OF MOVES 
0028C8 OBFP 1047 MVBI X'FFt,R3 SET BUFFER TO F'S 002992 2D64 1162+ MVFN §RD) $83) MOVE 1 STATUS WORD AND ADJUST 
OO28CA 4524 2708 1048 MVA SCTID,RS SETUP READ SECTOR ID BUFFER ADRS 002994 OBFF 1163+ MVBI 55k CLEAR CYCLE STATUS BUFFER 
OO28CE 4724 0006 1049 MVWI 6,R7 SETUP BUFFER LENGTH 002996 4524 2720 1164+ MVA CSBOF,R5 * TO ALL ONES 
0028D2 2BAC 1050 FFN R43 APD), INIT READ SECTOR ID BUFFER 00299A OFTO 1765+ MVBI 16,R7 * 
OO28D4 4020 2786 2708 1051 MVA Sct D,RSDCB+14 DATA ADDR 00299C 2BAC 1166+ FFN R3 {R23 * 
OO28DA 5047 1052 J XIO 00299E 4020 2702 0708 1167+ MVWI x'6708 , DLOIN OVERLAY OLD CONDITION CODES 
1053 * 0029A4 CB25 2704 1168+ MVWZ S$ISB,R3 ZERO OUT OLD ISB VALUE 
0OO028DC 4020 2A6C 27D8 1054 $RD MVA RDDCB, IODCB SET UP BLOCK FOR SVC CALL 116 94* 
OO0O28E2 5043 1055 J XIO OO029A8 4CA1 1170+ TBTR R4,ER RESET ANY ERROR BEFORE I/0 COMMAND 
| 1056 * | OO29AA 4CA3 1171+#XIO2 TBTR R4,IN CLEAR INTERRUPT RECEIVED CNTL BIT 
| OO28E4 4020 2A6C 27C8 1057 SRDVY MVA VRDCB, IODCB SET UP CONTROL BLOCK FOR 3VcC CALL 0029AC 4724 2A68 1172+ MVA oBLK 7 SET UP CONTROL BLOCK FOR SUPVE 
OO28EA 503F 1058 J XIO 002980 4CA6 1173+ TBTR RY, $LE) RESET LEVEL ERROR INDICATOR 
1059 * 0029B2 4C62 1174+ TBTS R4,XTI) SET EXPECTED INTR CONTROL BIT 
QOO28EC 4020 2A6C 2788 1060 SWRT MVA WRDCB, ITODCB SET UP CONTROL BLOCK FOR SVC CALL 0029B4 600A 11754 svc TART CALL SUPVR FOR T/0O COMMAND 
OO028F2 503B 1061 J XIO 1176+* 
1062 * 0029B6 4CAT 1177+ TBTR R4,NI) TS AN INTR EXPECTED 
OO28F4 4020 2A6C 27F8 1063 SRKEW MVA RKDCB, IODCB SET UP CONTROL BLOCK FOR SVC CALL 0029B8 6ACO 0002 1178+ BN R6,2) * NO, RETURN TO USER 
QOO28FA 4020 2806 2708 1064 MVA SCTID, RKDCB+14 DATA ADDR 1179+4+* 
002900 5034 dace ‘ J XIO sgiee THE INTR SHOULD OCCUR WHILE SPINNING IN THE NEXT SECTION 
002902 4020 2A6C 27E8 1067 SWKST MVA WKDCB , TODCB SET UP CONTROL BLOCK FOR SVC CALL 0029BC OD00 1182+ MVBI xX*00',R5 SET UP WORK REG FOR 'LOST INTR! 
002908 4020 27F6 281A 1068 MVA WSIDT ,WKDCB+14 DATA ADDR QO29BE 4CA3 1183+XI08 MTBTR sre th) HAS INTERRUPT BEEN RECEIVED 
00290E 502D 1069 J Io 0029C0 1238 1184+ JON TOCK * YES, CHECK IF ALL WAS SATISFACTORY 
1070 * 0029C2 6002 1185+ svc IDLE ALLOW ANOTHER PROGRAM A CHANCE TO RUN 
002910 4020 2A6C 27F8 1071 SRWST MVA RKDCB, IODCB SET WP CONTROL BLOCK FOR SVC CALL 1186+4+* SUPVR WILL RETURN HERE 
002916 4020 2806 2820 1072 MVA SCTST ,RKDCB+ 14 DATA ADDR 0029C4 7DA1 0001 1187+ AWI 1,85 ADVANCE TIME OUT COUNT 
00291C 5026 1073 J XIO 0029C3 18FA 1188+ INZ x fos BCH IF TIME OUT NOT REACHED 
1074 * QOO29CA 4C61 1189+ TBTS Be GG SET ON ERROR CONTROL BIT 
00291E 4020 2A6C 2778 1075 SRIDS MVA RSDC By IODCB SET UP CONTROL io FOR SVC CALL 0029CC 68D2 0000 1190+ B ERR 'NO INTERRUPT! 
002924 OBFF 1076 MVBI X'FFt 7R3 SET BUFFER TO F! 1 Sea 6) Lapeer ae 21 nc (OL 9 1:1 2 a 
002926 4524 2820 1077 MVA SCTST, aR SETUP READ SECTOR ED BUFFER ADRS 1193+* 
00292A 4724 0006 1078 MVWI 6,R7 SETUP BUFFER LENGT 11944+* SUBROUTINE 
00292E 2BAC 1079 FFN Bg. §& 2h INIT READ SECTOR TD BUFFER 1195+ 
002930 4020 2786 2820 1080 MVA sct T,RSDCB+14 DATA ADD 1196+* I/O EXECUTE ERROR HANDLING ROUTINE 
002936 5019 1081 J 1197+* 
1082 * 1198+* PURPOSE 
002938 4020 2A6C 27E8 1083 SWKEW MVA WKDCB,IODCB SET UP CONTROL BLOCK FOR SVC CALL 1199+4* 
00293E 4020 27F6 2814 1084 MVA WRSID, "WKDCB+14 DATA ADDR 1200+* THIS ROUTINE WILL COLLECT INFORMATION TO HELP DETERMINE THE 
002944 5012 1085 J XIO 12014+* PROBLEM THAT WAS FOUND WHEN THE oo COMMAND WAS ISSUED BY THE 
1086 * 1202+* SUPERVISOR AND IT WAS NOT ACCEPTED. 
002946 4020 2A6C 2768 1087 SWSEC MVA WSDCB, ITODCB SET UP CONTROL BLOCK FOR SVC CALL 1203+* 
bey eae 2776 2814 Hat: ae veg eee DATA ADDR 1a08ce CALLING SEQUENCE 
+ 
002954 4020 2A6C 2768 1090 S$WSTS MVA WSDCB, TODCB SET JOP CONTROL BLOCK FOR 3 VC CALL 1206+* SUPVR WILL ENTER WHEN AN ERROR OCCURS ON AN I/O COMMAND 
00295A 4020 2776 287A 1091 MVA WSIDT,WSDCB+14 DATA ADDR 1207+* 
002960 5004 1092 J XI0 1208+* RETURN CONTROL 
1093 * 1209+* 
EE: one 2A6C 2748 1998 SDIAG che et a deatcea SET UP CONTROL BLOCK FOR SVC CALL ba B (R6) * FETURN TO USERS ERROR HANDLER 
+ 
1096 REQiT T2V 2H RRR KR KE IO IO ack de date tok daktog tok tede tek tok kok ck ok 
1097+ 34 ok dao tek ok i ic kta ok ok kok ee keke ote sie ake dak oe ak dea kok eck kotok tok 99 TL 76 ee 1213+ 
1098+* 12144+* CC O= DEVICE NOT ATTACHED 
11008" OO ROUTINE i3\er* 170 d= DEVICE BUSY 
+ = E AFTEP PRESET 
1101+* EXECUTE INPUT AND OUTPUT COMMANDS 1217+%* / 3= COMMAND REJECT 
1102+* 1218+ 4¥= INTERVENTION REQUIRED 
1103+* PURPOSE 1219+ 5= INTERFACE DATA CHECK 
1104+% 1220+%* 6= CONTROLLER BUSY 
1105+% TO EXECUTE ALL I/O COMMANDS FROM A COMMON PLACE. 12214+* 7= I/O COMMAND EXCEPTED 
1106+* THIS SUBROUTINE WILL DO THE FOLLOWING FUNCTIONS: 1222+%* 
1107+* 0029D0 706E 1223+XTIOER DC X'7O6E* COPY STATUS ANY LEVEL INTO 8&3 
1108+* 1. SAVE THE ADDRESS THAT POINTS TO THE INSTRUCTION THAT STARTED 0029D2 336A 1224+ SRL 13,R3 POSITION CC CODE TO BITS 13-15 
11094* THE I/O COMMAND. 0029D4 C328 2702 1225+ MVB R3,SI0IN * POUT IN LOG OUT AREA 
1110+* 2. SAVES THE DCB BLOCK USED UNLESS IT IS A START CYCLE STATUS 0029D8 68D2 0000 1226+ B (RS) * RETURN TO USER ERROR HANDLER 
1111+ ISSUED BY THIS SUBROUTINE. 122 B+ HR RE ERR III RII I IR OR I kk tok ok dee teoedek ek 1 A PR 76% 
1112+ 3. CLEAR OUT THE CYCLE STEAL STATUS STORAGE UNLESS THE 1229+ IL 
1113+%* START CYCLE STATUS WAS ISSUED BY THIS SUBROUTINE. 1230+* SUB-ROUTINE L 
\idte “+ SHREDS oat’, Aug egveeres rateesugh, frau rutunt by Ye OUND 133}e8 H 
° ‘ + ERROR INTEPROP U ON T : ‘ ' 
11164%* MYSTERY INTERRUPT (MT) CONTROL BIT IS SET. : 1233+* : = Rune ON a Mae E eee ee. ees ar 
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I7822 --- CLOCK/4 962 P/N=1635402 EC=755285 PAGE 13 17822 --- CLOCK/4962 P/N=1635402 EC=755285 PAGE 13A 
CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
2159 2197 2201 2229 2233 2237 2242 2246 2255 1440 
2379 2388 2391 23594 2397 2400 2423 2461 2465 598 LSTIO ADDRESS, HEX LOCATION (00002706) IN CSECT(I7822 ) LENGTH (2) 
2493 2497 2501 2506 2510 2519 939 945 (951 958° 96 58 1405 
945 CEOP1 ADDRESS, HEX LOCATION (00002840) IN CSECT(I7822 ) LENGTH(4) 575 MI jABSOLUTE. HEX VALUE (00000020) 
951 CEOP2 ADDRESS. HEY LOCATION (00002854) IN CSECT(17822 |) LENGTH (4) 1443 MVBUF ADDRESS. HEX LOCATION(OOOO2ACE) IN CSECT(I7822 ) LENGTH (2) 
1553. 1562 1565 1568 1571 1574 1596 1634 1638 1447 1450 
1666 1670 1674 1679 1683 1692 1809 1818 1821 587 NG - ABSOLUTE. HEX VALUE(0000002C) 
1824 1827 1830 1853 1891 1895 1923 1927 1931 1320 
1936 1940 1949 2116 2125 2128 2431 2134 2137 582 NI ABSOLUTE. HEX VALUE (00000027) 
2160 2198 2202 2230 2234 2238 3243 2247 2256 1177. 1578 1834 
2380 2389 2392 2395 2398 2401 2424 2462 2466 375 N00001 ADDRESS. HEX LOCATION(00002548) IN CSECT(I7822 ) LENGTH (2) 
2494 2498 3502 2507 3511 23520 315.511 
665 CICB ABSOLUTE. HEX VALUE (00000014) 387 N00002 ADDRESS. HEX LOCATION(0000255A4) IN CSECT(I7822  ) LENGTH (2) 
762 CLDCB ADDRESS. HEX LOCATION (00002758) IN CSECT(I7822 ) LENGTH (2) 399 N00003 ADDRESS. HEX LOCATION (0000256C) IN CSECT(I7822 ) LENGTH(2) 
583 cs ABSOLUTE. HEX VALUE (90000028) 402 N00004 ADDRESS. HEX LOCATION (00002570) IN CSECT(I7822 ) LENGTH (2) 
584 CSA ABSOLUTE. HEX VALUE (00000029) 405 N00005 ADDRESS. HEX LOCATION(00002574) IN CSECT(I7822 ) LENGTH (2) 
614 CSBUF ADDRESS, HEX LOCATION (00002720) IN CSECT(I7822 ) LENGTH (1) 417 N00006 ADDRESS. HEX LOCATION (00002586) IN CSECT(I7822  ) LENGTH (2) 
812 CSDCB jABRESS- HEX LOCATION(000027A8) IN CSECT(I7822 ) LENGTH(2) 429 N00007 ADDRESS. HEX LOCATION(00002598) IN CSECT(I7822  ) LENGTH (2) 
616 CSTL2 ADDRESS; HEX LOCAZTON (00002722) IN CSECT(I7822 ) LENGTH(2) 432 N00008 ADDRESS. HEX LOCATION(0000259C) IN CSECT(I7822 ) LENGTH (2) 
622 CSTL8 ADBRESS. HEX LOCATION (0000272E) IN CSECT(I7822 ) LENGTH(2) 435 N00009 ADDRESS. HEX LOCATION (0000250) IN CSECT(I7822 ) LENGTH (2) 
892 CTRO1 ADDRESS, HEX LOCATION (00002826) IN CSECT(I7822 |) LENGTH (2) U47 N00010 ADDRESS. HEX LOCATION(000025B2) IN CSECT(I7822 ) LENGTH (2) 
1560 1576 1661 1686 1687 1816 1832 1918 1943 342 
1344 2123 2139 2225 2250 2251 2387 2403 2489 | 459 N00011 ADDRESS. HEX LOCATION(000025C4) IN CSECT(I7822 ) LENGTH (2) 
604 DCBUF jARDRESS. HEX LOCATION (00002710) IN CSECT(I7822 ) LENGTH(1) 462 N00012 ADDRESS, HEX LOCATION (000025C8) IN CSECT(I7822 ) LENGTH (2) 
1480 DC2PT ADDRESS. HEX LOCATION(00002C14) IN CSECT(I7822 ) LENGTH(2) 465 N00013 ADDRESS, HEX LOCATION(000025CC) IN CSECT(I7822 ) LENGTH (2) 
105 DEVADD ADDRESS, HEX LOCATION (00901900) 1 IN CSECT (17822 | ybgtE8STH 477 N00014 ADDRESS. HEX LOCATION(000025DE) IN CSECT(I7822 ) LENGTH (2) 
1540 1796 2103 236 489 100015 ADDRESS. HEX LOCATION(000025F0) IN CSECT(I7822 ) LENGTH(2) 
599 DEV1 ADDRESS. HEX LOCATION (00002708) IN CSECT(I7822 ) LENGTH(2) 357 
603. 1394 492 N00016 ADDRESS. HEX LOCATION(000025F4) IN CSECT(I7822 ) LENGTH(2) 
750 DGDCB ADDRESS. HEX LOCATION (00002748) IN CSECT(I7822 ) LENGTH(2) 360 478 
1094 495 N00017 ADDRESS. HEX LOCATION(000025F8) IN CSECT(I7822 ) LENGTH(2) 
67 DUMMY ABSOLUTE. HEX VALUE(00000000) 363 466 
366 500 512 57 ON ABSOLUTE. HEX fed aden 
501 ENTPT ADDRESS. HEX LOCATION (00002606) IN CSECT(I7822 ) LENGTH(1) 390 420 450 
198 540 OPTN1 ADDRESS. HEX LOCATION (000026FA) IN CSECT(I7822 ) LENGTH (2) 
47 EQ ABSOLUTE. HEX VALUE (00000000) 1261 1301 1536 1792. 2099 2363 
378 408 438 563 OPTN3 ADDRESS. HEX LOCATION(QOO026FE) IN CSECT(I7822 ) LENGTH (2) 
576 ER ABSOLUTE. HEX VALE (00000021) 1348 1396 
1170 1189 1272 1339 1602 1859 2166 2430 101 PARMARA ADDRESS, HEX LOCATION (0000196E) IN CSECT(I7822 ) LENGTH(1) 
651 EXIT ABSOLUTE. HEX VALUE (00000006) 385 397,415. 427 bas 57 475 487 
1321 69 PID ADDRESS. HEX LOCATION (00001800) IN CSECT (I7822 ), LENGTH (1) 
1482 FAKETU ADDRESS. HEX LOCATION(00002C18) IN CSECT(I7822 ) LENGTH (2) 71 72 73 74 75 76 77 78 9 
1452 80 81 82 83 84 85 86 87 88 
520 F00004 ADDRESS. HEX LOCATION (0000260C) IN CSECT(I7822 ) LENGTH (1) 89 90 91 92 93 94 95 96 97 
400 430 98 99 100 101 102 103 108 +105 ~=# 106 
528 F00008 ADDRESS. HEX LOCATION (0000268C) IN CSECT(I7822 ) LENGTH(1) 107. 108 109 110 117 4412 1451 
4yo3 1483 PIDHSG10 ABSOLUTE. HEX VALUF(0000F1F0) 
534 F00122 ADDRESS. HEX LOCATION(000026E6) IN CSECT(I7822 ) LENGTH (1) 1451 
496 657 PREP ABSOLUTE. HEX VALUE(0000000C) 
1488 HEBLK ADDRESS. HEX LOCATION(00002C1A) IN CSECT(I7822 ) LENGTH(2) 1406 
1435 979 RDATA ADDRESS. HEX LOCATION (09002844) IN CSECT(I7822 |) LENGTH (2) 
671 HTOE ABSOLUTE. HEX VALUE(0000001A) 1705 1706 1708 1709 1962 1963 1965 ‘1966 2269 
1436 2270 2272 2273 2533 2534 2536 2537 
980 IDCBCE1 ADDRESS. HEX LOCATION (000028A6) IN CSECT(I7822 ) LENGTH (2) 977 RDATAO ADDRESS. HEX LOCATTON(000026A0) IN CSECT(I7822 ) LENGTH (2) 
946 947 1701. 1702 1958 1959 2265 2266 2529 (2530 
982 IDCBCE2 ADDRESS» HEX LOCATION (000028AA) IN CSECT(I7822 ) LENGTH (2) 2292 RDBUF ghDDRESS, HEX LOCATION(000035B4) IN CSECT(I7822 ) LENGTH (2) 
984 IDCBRAP ADDRESS. HEX LOCATION(QOOO28AF) IN CSECT(I7822 ) LENGTH(2) B45 RDDCB ADDRESS, HEX LOCATION (000027D8) IN CSECT(I7822 ) .EENGTH (2) 
940 9614 1054 2142 2143 2144 2145 2146 2406 ©2407 2408 
976 IDCBO ADDRESS. HEX LOCATION(0000289E) IN CSECT(I7822 ) LENGTH(2) 2409 2410 
965 966 653 RESET ABSOLUTE, HEX VALUE (00090008) 
978 IDCB1 ADDRESS. HEX LOCATION (000028A2) IN CSECT(I7822 ) LENGTH (2) 1546 1614 1802 1871 2109 2178 2373 2442 
959 960 1540 1796 2103 2367 664 RICB ABSOLUTE. HEX VALUE (00000013) 
647 IDLE ABSOLUTE. HEX, VALUE (00000002) 1460 
1185 : 867 RKDCB ADDRESS. HEX LOCATION (000027F8) IN CSECT(I7822 ) LENGTH(2) 
578 IN ABSOLUTE. HEX VALUE (00000923) 1063. 1064 1071 1072 
1171 1183 1302 1555 1593 1699 1716 1811 1850 777 RSDCB ADDRESS. HEX LOCATTON (00002778) IN CSECT(I7822 ) LENGTH(2) 
1956 1973 2118 2157 2263 2280 2382 2421 2527 1046 1051 1075 1080 
2544 603 SCTID ADDRESS. HEX LOCATION (00002708) T IN CSECT(I7822 ) LENGTH (2) 
1362 INTBL ADDRESS. HEX LOCATION(00002A74) IN CSECT(I7822 ) LENGTH(2) 784 796 874 1048: 1051 64 
1397 889 SCTST ADDRESS. HEX LOCATION(00002820) IN CSECT(I7822 ) LENGTH(2) 
1259 INTER ADDRESS. HEX LOCATION(000029DC) IN CSECT(I7822 ) LENGTH(2) 1072. 1077 1080 
1364 964 SENSO ADDRESS. HEX LOCATION(0000287C) IN CSECT(I7822 ) LENGTH(4) 
1268 INTES ADDRESS. HEX LOCATION(000029F4) IN CSECT(I7822 ) LENGTH (2) 1697. 1954 2261 3525 
1263 958 SENS1 ADDRESS. HEX LOCATION(00002868) IN CSECT(I7822 ) LENGTH(4) 
1272 INTET ADDRESS. HEX LOCATION(000029FC) IN CSECT(I7822 ) LENGTH(2) 1703. 1960 2267 2531 
1269 801 SKDCB ADDRESS. HEX LOCATION(00002798) IN CSECT(I7822 ) LENGTH (2) 
1299 INTOK ADDRESS. HEX LOCATION(00002A00) IN CSECT(I7822 ) LENGTH(2) 1040 
1363 655 START ABSOLUTE. HEX VALUE (00000008) 
1321 INTRX ADDRESS. HEX LOCATION (00002430) IN CSECT(I7822 ) LENGTH (2) 1175 
1316 131 104 SUPSTAT ADDRESS. HEX LOCATION(000019C4) IN CSECT(I7822 ) LENGTH (1) 
1302 INTR1 ADDRESS. HEX LOCATION(00002A08) IN CSECT(I7822 ) LENGTH(2) 1454 
1267 1271 92 TUMSGWITR ADDRESS. HEX LOCATION(000018BA) IN CSECT(I7822 ) LENGTH (1) 
1307 INTR2 ADDRESS. HEX LOCATION(00002A16) IN CSECT(I7822 ) LENGTH(1) 1456 
1304 98 TURESUL ADDRESS. HEX LOCATION (00QQ18C8) I IN CSECT (17822 ) LENGTH (1) 
1315 INTR3 ADDRESS. HEX LOCATION(00002A24) IN CSECT(I7822 ) LENGTH(2) 1544 1547 1611 1615+ 1800 1868 72° 21 
1312 2110 2175 2179 2371 2374 2833 2443 
1353 IOBLK ADDRESS. HEX LOCATION (00002A68) IN CSECT (17822 1) LENGTH (2) 627 TURTN ADDRESS. HEX LOCATION (00002738) IN CSECT(I7822 ) LENGTH(2) 
1172 1402 1545 1613. 1801 70 2108 2177 2372 1461 1534 1790 2097 2361 
2444 74 TUSTATUS ADDRESS. HEX LOCATION(00001818) IN CSECT(I7822 ) LENGTH (1) 
1355 IODCB ADDRESS. HEX att eae IN CSECT (17822 ), EENGTH (2) 1434 
1040 1043 1046 1054 1057 i 60 1063 1067 1071 75 TU WORK ADDRESS. HEX LOCATION(0000181A) IN CSECT(I7822 ) LENGTH(1) 
1075 1083 1087 1090 1094 54 1160 1401 1438 1490 
1356 TOMOD j ADDRESS: HEX LOCATION (O0002A6E) IN CSECT(I7822 ) LENGTH (2) 636 T3C02 ADDRESS. HEX LOCATION (00002740) IN CSECT(I7822 ) LENGTH (6) 
37 17822 CSECT.. START (00002500) LENGTH(5402) ESDID(0) 1702 T69A jADDRESS. HEX LOCATION (00002270) IN CSECT(I7822 ) LENGTH (6) 
1469 LINE1 ADDRESS. HEX LOCATION(00002B42) IN CSECT(I7822 ) LENGTH(4O) 1709 T69B ADDRESS. HEX LOCATION(00002E90) IN CSECT(I7822 ) LENGTH(4) 
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LENGTH (4) 
LENGTH (4) 
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LENGTH (6) 


LENGTH (2) 
LENGTH (4) 
LENGTH (6) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
LENGTH (4) 
LENGTH (2) 
LENGTH (6) 
LENGTH (6) 
LENGTH (4) 
LENGTH (1) 
LENGTH (4) 
LENGTH (2) 
LENGTH (2) 
LENGTH (4) 
LENGTH (4) 
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1954 
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2255 
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CROSS“REFERENCE LISTING 


jROBRESS- HEX LOCATION(00002F64) IN CSECT(1I7822 
ADDRESS. HEX LOCATION (00003128) IN CSECT (17822 
1846 1893 1897 1925 9 (1933 

jABDRESS. HEX LOCATION (0000328E) IN CSECT(I7822 
ADDRESS. HEX LOCATION(0000306A) IN CSECT (17822 
1882 1906 1910 1915 

ADDRESS. HEX LOCATION (00003184) IN CSECT(17822 
1959 1970 1971 1972 

ADDRESS. HEX LOCATION (00003180) IN CSECT (17822 
1798 1799 1861 1862 b 1967 19 7 
ADDRESS. HEX LOCATION(00003090) IN CSECT(I7822 
ADDRESS, HEX LOCATION (00003016) IN CSECT(I7822 
ADDRESS. HEX LOCATION(0000318C) IN CSECT(17822 
aADDRESS. HEX LOCATION (00003552) IN CSECT(I7622 
ADDRESS. HEX LOCATION (0000357E) IN CSECT(I7822 
ADDRESS. HEX LOCATION (0000354A) IN CSECT(1I7822 
aADDRESS. HEX LOCATION (00003440) IN CSECT(17822 
ADDRESS. HEX LOCATION (00003326) IN CSECT(I7822 
ADDRESS. HEX LOCATION (00003436) IN CSECT(1I7822 
2163. 2170 2172 
aABDRESS. HEX LOCATION(0000353C) IN CSECT (17822 
ADDRESS. HEX LOCATION (00003428) IN CSECT (17822 
2101 2113 2117 2119 2122 2126 2129 2132 
3138 2148 2161 2165 2167 2199 2203 2231 
2239 2244 2248 2257 2262 2268 

aADDRESS. HEX LOCATION (000033F0) IN CSECT (17822 
ohDDRESS. HEX LOCATION (00003546) IN CSECT (17822 
gADDRESS. HEX LOCATION (00003508) IN CSECT(I7822 
aADDRESS. HEX LOCATION (0000336C) IN CSECT (17822 
oADDRESS. HEX LOCATION (00003528) IN CSECT(I7822 
SADBRESS. HEX LOCATION (00003430) IN CSECT(I7822 
aABDRESS. HEX LOCATION (000035A4) IN CSECT (17822 
oADDRESS,_ HEX LOCATION (00003538) IN CSECT (17822 
oADDRESS. HEX LOCATION (000034C6) IN CSECT (17822 
ohBDRESS. HEX LOCATION(000034D2) IN CSECT (17822 
pABDRESS. HEX LOCATION (0000345C) IN CSECT(I7622 
aADDRESS. HEX LOCATION (00003462) IN CSECT(I7822 
ohDDRESS. HEX LOCATION (000034A6) IN CSECT (17822 
ADRESS, HEX LOCATION (000035AE) IN CSECT (17822 
aABPRESS. HEX LOCATION(0000358E) IN CSECT(I7822 
aAPDRESS. HEX LOCATION (0000338A) IN CSECT (17822 
ADDRESS, HEX LOCATION (OQQO354E) IN CSECT(17822 
2153 2200 2204 2232 36. 2240 2 
pADDRESS. HEX LOCATION (000036B4) IN CSECT(I7622 
ADDRESS. HEX LOCATION (00003490) IN CSECT (17822 
2189 2213. 2217 2222 

ADDRESS. HEX LOCATION (000035AA) IN CSECT (17822 
2266 2277 2278 2279 

ADDRESS. HEX LOCATION (09003546) _IN CSECT(I7822 
2105. 2106 2168 2169 2171 2274 2276 2277 
aADDRESS. HEX LOCATION (000034B6) IN CSECT (17622 
pADDRESS, HEX LOCATION (0000343C) IN CSECT (17622 
aADDRESS. HEX LOCATION (00003552) IN CSECT (17822 
pABDRESS. HEX LOCATION (00003936) IN CSECT(I7822 
pADDRESS. HEX LOCATION (00003956) IN CSECT (17822 
ohDDRESS. HEX LOCATION (00003922) IN CSECT (17822 
pADDRESS. HEX LOCATION(00003818) IN CSECT (17822 
aADDRESS. HEX LOCATION(000037BE) IN CSECT(I7622 
ADDRESS. HEX LOCATION(0000380E) IN CSECT(1I7822 
2427 2434 2436 

gADDRESS. HEX LOCATION(00003914) IN CSECT (17822 
ADDRESS. HEX LOCATION (00003800) IN CSECT (17822 
2365 2377 2381 2383 2386 2390 2393 2396 
2402 2412 2025 2629 2431 2463 2467 2895 
2503 2508 .2512 2524 2526 2532 

ADDRESS. HEX LOCATION (000037C8) IN CSECT (17822 
SRDDRESS. HEX LOCATION (00003912) IN CSECT (17822 
ohDDRESS. HEX LOCATION(000038E0) IN CSECT(17822 
pABDRESS. HEX LOCATION(00003744) IN CSECT (17822 
ADDRESS. HEX LOCATION (00003900) IN CSECT (17822 
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LENGTH (4) 
LENGTH (2) 
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